home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / RLaB / rlib / finite.r < prev    next >
Text File  |  1994-04-25  |  439b  |  18 lines
  1. //----------------------------------------------------------------------
  2. //
  3. // finite
  4. //
  5. // Syntax: a=finite(b)
  6. //
  7. // This routines returns a matrix containing a 1 if the corresponding
  8. // element is finite (i.e., not Inf or NaN) and a 0 if it is either
  9. // Inf or NaN.
  10. //
  11. // Original Author: Jeff Layton 
  12. //----------------------------------------------------------------------
  13.  
  14. finite = function(b)
  15. {
  16.    return !(isinf (b) + isnan (b))
  17. };
  18.